From: Richard Stallman <rms@gnu.org>
Date: Sat, 10 Mar 2012 08:43:27 +0000 (-0500)
Subject: Make epa-mail-encrypt cope with read-only text.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~492
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=74910626f1756b292e96d3a91598e152f511ff4b;p=emacs.git

Make epa-mail-encrypt cope with read-only text.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d131617ba06..cf39a8301c8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-03-10  Richard Stallman  <rms@gnu.org>
+
+	* epa-mail.el (epa-mail-encrypt): Bind inhibit-read-only.
+
 2012-03-10  Chong Yidong  <cyd@gnu.org>
 
 	* emulation/cua-rect.el (cua--init-rectangles):
diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index 22bfe03cab0..be5b849651c 100644
--- a/lisp/epa-mail.el
+++ b/lisp/epa-mail.el
@@ -192,7 +192,9 @@ If no one is selected, symmetric encryption will be performed.  "
 	     (if sign
 		 (epa-select-keys context
 				  "Select keys for signing.  "))))))
-  (epa-encrypt-region start end recipients sign signers))
+  ;; Don't let some read-only text stop us from encrypting.
+  (let ((inhibit-read-only t))
+    (epa-encrypt-region start end recipients sign signers)))
 
 ;;;###autoload
 (defun epa-mail-import-keys ()